home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / WinText.mod < prev   
Text File  |  1993-08-19  |  570b  |  15 lines
  1.     /*  ------ Text in inner window ----- */
  2.     WinText:
  3.      if GetClip('inner_open') = '1' then do
  4.      tx = 'This text has been placed here\by the use of the WindowText',
  5.       '\function.\\The window can be dragged or',
  6.       '\resized, but it is not scanned\for any other user action, and',
  7.       '\so it has no close gadget.\To close it, use Gadget 2 in',
  8.       '\the parent window again.',
  9.       '\In fact, use of any gadget higher',
  10.       '\than 4 will also close it,',
  11.       '\just to get it out of the way.'
  12.      call WindowText(HO1,tx) 
  13.      end
  14.      return
  15.